/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / MPW / MPW noweb 2.7 / contrib / partingr / addscore.nw

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 5c 64 65 66 5c 6d 75 73 | 65 63 73 7b 24 5c 6d 75 |\def\mus|ecs{$\mu|
|00000010| 24 73 65 63 73 7d 0d 5c | 69 74 65 6d 77 69 64 74 |$secs}.\|itemwidt|
|00000020| 68 3d 2e 32 35 69 6e 0d | 40 0d 5c 73 65 63 74 69 |h=.25in.|@.\secti|
|00000030| 6f 6e 7b 41 72 63 68 65 | 72 79 20 44 61 74 61 62 |on{Arche|ry Datab|
|00000040| 61 73 65 3a 20 7b 5c 74 | 74 20 41 64 64 53 63 6f |ase: {\t|t AddSco|
|00000050| 72 65 7d 7d 0d 54 68 69 | 73 20 70 65 72 6c 20 73 |re}}.Thi|s perl s|
|00000060| 63 72 69 70 74 20 61 64 | 64 73 20 61 20 73 63 6f |cript ad|ds a sco|
|00000070| 72 65 20 28 6f 72 20 73 | 63 6f 72 65 73 29 20 74 |re (or s|cores) t|
|00000080| 6f 20 74 68 65 20 61 72 | 63 68 65 72 79 20 64 61 |o the ar|chery da|
|00000090| 74 61 62 61 73 65 2e 0d | 49 74 20 70 72 6f 76 69 |tabase..|It provi|
|000000a0| 64 65 73 20 6f 6e 6c 79 | 20 61 20 62 61 73 69 63 |des only| a basic|
|000000b0| 20 75 73 65 72 20 69 6e | 74 65 72 66 61 63 65 2e | user in|terface.|
|000000c0| 0d 0d 3c 3c 61 64 64 73 | 63 6f 72 65 3e 3e 3d 0d |..<<adds|core>>=.|
|000000d0| 3c 3c 73 65 74 75 70 3e | 3e 0d 3c 3c 6d 61 69 6e |<<setup>|>.<<main|
|000000e0| 20 70 72 6f 67 72 61 6d | 20 6c 6f 6f 70 3e 3e 0d | program| loop>>.|
|000000f0| 3c 3c 73 75 62 72 6f 75 | 74 69 6e 65 73 3e 3e 0d |<<subrou|tines>>.|
|00000100| 40 0d 0d 5c 73 65 63 74 | 69 6f 6e 7b 53 65 74 74 |@..\sect|ion{Sett|
|00000110| 69 6e 67 20 75 70 20 74 | 68 65 20 64 61 74 61 62 |ing up t|he datab|
|00000120| 61 73 65 20 61 6e 64 20 | 73 63 72 69 70 74 7d 0d |ase and |script}.|
|00000130| 42 65 63 61 75 73 65 20 | 6d 75 63 68 20 6f 66 20 |Because |much of |
|00000140| 74 68 65 20 63 6f 64 65 | 20 69 73 20 73 68 61 72 |the code| is shar|
|00000150| 65 64 20 62 65 74 77 65 | 65 6e 20 74 68 69 73 20 |ed betwe|en this |
|00000160| 66 61 6d 69 6c 79 20 6f | 66 20 73 63 72 69 70 74 |family o|f script|
|00000170| 73 2c 0d 73 6f 6d 65 20 | 6f 66 20 74 68 65 20 63 |s,.some |of the c|
|00000180| 6f 64 65 20 69 73 20 69 | 6e 20 73 75 62 72 6f 75 |ode is i|n subrou|
|00000190| 74 69 6e 65 20 66 69 6c | 65 73 2e 20 57 65 20 5b |tine fil|es. We [|
|000001a0| 5b 72 65 71 75 69 72 65 | 5d 5d 20 74 68 65 73 65 |[require|]] these|
|000001b0| 2e 0d 0d 3c 3c 73 65 74 | 75 70 3e 3e 3d 0d 72 65 |...<<set|up>>=.re|
|000001c0| 71 75 69 72 65 20 22 63 | 75 73 74 6f 6d 22 20 7c |quire "c|ustom" ||
|000001d0| 7c 20 64 69 65 20 22 63 | 61 6e 27 74 20 6f 70 65 || die "c|an't ope|
|000001e0| 6e 20 63 75 73 74 6f 6d | 20 72 6f 75 74 69 6e 65 |n custom| routine|
|000001f0| 73 20 6c 69 62 72 61 72 | 79 22 3b 0d 72 65 71 75 |s librar|y";.requ|
|00000200| 69 72 65 20 22 61 72 63 | 68 73 75 62 73 22 20 7c |ire "arc|hsubs" ||
|00000210| 7c 20 64 69 65 20 22 63 | 61 6e 27 74 20 6f 70 65 || die "c|an't ope|
|00000220| 6e 20 73 75 62 72 6f 75 | 74 69 6e 65 73 20 6c 69 |n subrou|tines li|
|00000230| 62 72 61 72 79 22 3b 0d | 40 20 25 64 65 66 20 26 |brary";.|@ %def &|
|00000240| 72 65 61 64 72 6f 75 6e | 64 73 20 26 69 6e 69 74 |readroun|ds &init|
|00000250| 0d 0d 45 61 72 6c 79 20 | 76 65 72 73 69 6f 6e 73 |..Early |versions|
|00000260| 20 6f 66 20 74 68 69 73 | 20 73 63 72 69 70 74 20 | of this| script |
|00000270| 61 6c 6c 6f 77 65 64 20 | 79 6f 75 20 74 6f 20 61 |allowed |you to a|
|00000280| 62 6f 72 74 20 61 6e 20 | 65 6e 74 72 79 20 62 79 |bort an |entry by|
|00000290| 20 6e 6f 74 0d 74 79 70 | 69 6e 67 20 61 6e 79 74 | not.typ|ing anyt|
|000002a0| 68 69 6e 67 20 61 74 20 | 61 20 70 72 6f 6d 70 74 |hing at |a prompt|
|000002b0| 2e 20 48 6f 77 65 76 65 | 72 20 74 68 69 73 20 62 |. Howeve|r this b|
|000002c0| 65 63 61 6d 65 20 63 75 | 6d 62 65 72 73 6f 6d 65 |ecame cu|mbersome|
|000002d0| 20 77 68 65 6e 20 6f 6e | 6c 79 0d 74 68 65 20 74 | when on|ly.the t|
|000002e0| 68 69 72 64 20 70 72 6f | 6d 70 74 20 77 6f 75 6c |hird pro|mpt woul|
|000002f0| 64 20 6c 65 74 20 79 6f | 75 20 64 6f 20 74 68 69 |d let yo|u do thi|
|00000300| 73 2e 20 53 6f 20 77 65 | 20 6e 6f 77 20 74 72 61 |s. So we| now tra|
|00000310| 70 20 5b 5b 53 49 47 49 | 4e 54 5d 5d 0d 61 6e 64 |p [[SIGI|NT]].and|
|00000320| 20 70 6f 69 6e 74 20 69 | 74 20 74 6f 20 74 68 65 | point i|t to the|
|00000330| 20 73 61 6d 65 20 61 62 | 6f 72 74 20 72 6f 75 74 | same ab|ort rout|
|00000340| 69 6e 65 2e 0d 0d 3c 3c | 73 65 74 75 70 3e 3e 3d |ine...<<|setup>>=|
|00000350| 0d 24 53 49 47 7b 27 49 | 4e 54 27 7d 3d 27 61 62 |.$SIG{'I|NT'}='ab|
|00000360| 6f 72 74 27 3b 0d 40 20 | 25 64 65 66 20 24 53 49 |ort';.@ |%def $SI|
|00000370| 47 0d 0d 57 65 20 6e 65 | 65 64 20 6b 6e 6f 77 20 |G..We ne|ed know |
|00000380| 77 68 61 74 20 64 61 74 | 65 20 69 74 20 69 73 20 |what dat|e it is |
|00000390| 74 6f 64 61 79 20 28 66 | 6f 72 20 74 68 65 20 64 |today (f|or the d|
|000003a0| 65 66 61 75 6c 74 20 64 | 61 74 61 62 61 73 65 20 |efault d|atabase |
|000003b0| 61 6e 64 0d 64 61 74 65 | 29 20 73 6f 20 77 65 20 |and.date|) so we |
|000003c0| 67 65 74 20 74 68 69 73 | 20 66 72 6f 6d 20 74 68 |get this| from th|
|000003d0| 65 20 6f 70 65 72 61 74 | 69 6e 67 20 73 79 73 74 |e operat|ing syst|
|000003e0| 65 6d 20 76 69 61 20 74 | 68 65 20 5b 5b 67 6d 74 |em via t|he [[gmt|
|000003f0| 69 6d 65 28 29 5d 5d 0d | 63 61 6c 6c 2e 0d 0d 3c |ime()]].|call...<|
|00000400| 3c 73 65 74 75 70 3e 3e | 3d 0d 24 73 74 61 72 74 |<setup>>|=.$start|
|00000410| 3d 74 69 6d 65 3b 0d 28 | 24 74 73 2c 24 74 6d 69 |=time;.(|$ts,$tmi|
|00000420| 2c 24 74 68 2c 24 74 6d | 64 2c 24 74 6d 6f 2c 24 |,$th,$tm|d,$tmo,$|
|00000430| 74 79 2c 40 6a 75 6e 6b | 29 3d 67 6d 74 69 6d 65 |ty,@junk|)=gmtime|
|00000440| 28 24 73 74 61 72 74 29 | 3b 0d 40 20 25 64 65 66 |($start)|;.@ %def|
|00000450| 20 24 73 74 61 72 74 20 | 24 74 73 20 24 74 6d 69 | $start |$ts $tmi|
|00000460| 20 24 74 68 20 24 74 6d | 64 20 24 74 6d 6f 20 24 | $th $tm|d $tmo $|
|00000470| 74 79 20 40 6a 75 6e 6b | 20 7c 20 24 73 74 61 72 |ty @junk| | $star|
|00000480| 74 20 67 6d 74 69 6d 65 | 28 29 0d 0d 4e 6f 77 20 |t gmtime|()..Now |
|00000490| 77 65 20 72 65 61 64 20 | 69 6e 20 74 68 65 20 72 |we read |in the r|
|000004a0| 6f 75 6e 64 73 20 64 61 | 74 61 62 61 73 65 2c 20 |ounds da|tabase, |
|000004b0| 61 6e 64 20 6f 70 65 6e | 20 74 68 65 20 72 65 6c |and open| the rel|
|000004c0| 65 76 61 6e 74 20 64 62 | 6d 20 66 69 6c 65 20 66 |evant db|m file f|
|000004d0| 6f 72 0d 74 68 65 20 61 | 72 63 68 65 72 79 20 64 |or.the a|rchery d|
|000004e0| 61 74 61 62 61 73 65 2e | 20 5b 5b 26 69 6e 69 74 |atabase.| [[&init|
|000004f0| 5d 5d 20 68 61 6e 64 6c | 65 73 20 74 68 65 20 63 |]] handl|es the c|
|00000500| 6f 6d 6d 61 6e 64 20 6c | 69 6e 65 20 6f 70 74 69 |ommand l|ine opti|
|00000510| 6f 6e 73 20 74 68 61 74 | 0d 72 65 6c 61 74 65 20 |ons that|.relate |
|00000520| 74 6f 20 74 68 65 20 70 | 65 72 73 6f 6e 20 61 6e |to the p|erson an|
|00000530| 64 20 79 65 61 72 20 74 | 68 61 74 20 61 72 65 20 |d year t|hat are |
|00000540| 61 73 6b 65 64 20 66 6f | 72 2e 20 0d 0d 3c 3c 73 |asked fo|r. ..<<s|
|00000550| 65 74 75 70 3e 3e 3d 0d | 26 72 65 61 64 72 6f 75 |etup>>=.|&readrou|
|00000560| 6e 64 73 3b 0d 64 6f 20 | 26 69 6e 69 74 3b 0d 40 |nds;.do |&init;.@|
|00000570| 20 25 64 65 66 20 7c 20 | 26 72 65 61 64 72 6f 75 | %def | |&readrou|
|00000580| 6e 64 73 20 26 69 6e 69 | 74 0d 5c 73 65 63 74 69 |nds &ini|t.\secti|
|00000590| 6f 6e 7b 54 68 65 20 6d | 61 69 6e 20 62 6f 64 79 |on{The m|ain body|
|000005a0| 20 6f 66 20 74 68 65 20 | 70 72 6f 67 72 61 6d 7d | of the |program}|
|000005b0| 0d 54 68 65 20 6d 61 69 | 6e 20 70 61 72 74 20 6f |.The mai|n part o|
|000005c0| 66 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 6a 75 |f the pr|ogram ju|
|000005d0| 73 74 73 20 6c 6f 6f 70 | 73 20 61 73 6b 69 6e 67 |sts loop|s asking|
|000005e0| 20 74 68 65 20 75 73 65 | 72 20 66 6f 72 0d 61 20 | the use|r for.a |
|000005f0| 73 63 6f 72 65 20 74 6f | 20 62 65 20 65 6e 74 65 |score to| be ente|
|00000600| 72 65 64 20 61 6e 64 20 | 74 68 65 6e 20 70 72 6f |red and |then pro|
|00000610| 6d 70 74 69 6e 67 20 66 | 6f 72 20 61 6e 6f 74 68 |mpting f|or anoth|
|00000620| 65 72 20 6c 6f 6f 70 2e | 0d 0d 55 6e 66 6f 72 74 |er loop.|..Unfort|
|00000630| 75 6e 61 74 65 6c 79 2c | 20 77 65 20 73 74 69 6c |unately,| we stil|
|00000640| 6c 20 74 72 65 61 74 20 | 64 61 74 65 73 20 61 73 |l treat |dates as|
|00000650| 20 73 74 72 69 6e 67 73 | 20 28 64 75 65 20 74 6f | strings| (due to|
|00000660| 20 70 72 6f 62 6c 65 6d | 73 20 69 6e 20 74 68 65 | problem|s in the|
|00000670| 0d 63 6f 6e 76 65 72 73 | 69 6f 6e 20 6f 66 20 64 |.convers|ion of d|
|00000680| 61 74 65 73 20 74 6f 20 | 5c 6d 75 73 65 63 73 5c |ates to |\musecs\|
|00000690| 20 61 6e 64 20 62 61 63 | 6b 29 20 73 6f 20 61 6c | and bac|k) so al|
|000006a0| 6c 20 74 68 69 73 20 64 | 61 74 61 20 63 61 6e 6e |l this d|ata cann|
|000006b0| 6f 74 0d 62 65 20 61 63 | 63 65 73 73 65 64 20 62 |ot.be ac|cessed b|
|000006c0| 79 20 64 61 74 65 20 6f | 72 64 65 72 2e 0d 0d 5c |y date o|rder...\|
|000006d0| 73 75 62 73 65 63 74 69 | 6f 6e 7b 4f 75 74 6c 69 |subsecti|on{Outli|
|000006e0| 6e 65 20 6f 66 20 6d 61 | 69 6e 20 6c 6f 6f 70 7d |ne of ma|in loop}|
|000006f0| 0d 3c 3c 6d 61 69 6e 2e | 2e 2e 3e 3e 3d 0d 77 68 |.<<main.|..>>=.wh|
|00000700| 69 6c 65 28 31 29 0d 7b | 0d 20 20 3c 3c 64 61 74 |ile(1).{|.  <<dat|
|00000710| 65 20 65 6e 74 72 79 20 | 61 6e 64 20 76 61 6c 69 |e entry |and vali|
|00000720| 64 61 74 69 6f 6e 3e 3e | 0d 20 20 3c 3c 72 6f 75 |dation>>|.  <<rou|
|00000730| 6e 64 20 65 6e 74 72 79 | 20 61 6e 64 20 76 61 6c |nd entry| and val|
|00000740| 69 64 61 74 69 6f 6e 3e | 3e 0d 20 20 3c 3c 73 63 |idation>|>.  <<sc|
|00000750| 6f 72 65 20 65 6e 74 72 | 79 20 61 6e 64 20 76 61 |ore entr|y and va|
|00000760| 6c 69 64 61 74 69 6f 6e | 3e 3e 0d 20 20 3c 3c 63 |lidation|>>.  <<c|
|00000770| 72 65 61 74 65 20 61 6e | 64 20 73 74 6f 72 65 20 |reate an|d store |
|00000780| 64 62 6d 20 65 6e 74 72 | 79 3e 3e 0d 20 20 3c 3c |dbm entr|y>>.  <<|
|00000790| 70 72 6f 6d 70 74 20 75 | 73 65 72 20 66 6f 72 20 |prompt u|ser for |
|000007a0| 61 6e 6f 74 68 65 72 20 | 67 6f 3e 3e 0d 7d 0d 40 |another |go>>.}.@|
|000007b0| 0d 0d 57 65 20 63 6c 6f | 73 65 20 74 68 65 20 64 |..We clo|se the d|
|000007c0| 62 6d 20 64 61 74 61 62 | 61 73 65 20 65 78 70 6c |bm datab|ase expl|
|000007d0| 69 63 69 74 6c 79 20 68 | 65 72 65 2c 20 6a 75 73 |icitly h|ere, jus|
|000007e0| 74 20 74 6f 20 62 65 20 | 6f 6e 20 74 68 65 20 73 |t to be |on the s|
|000007f0| 61 66 65 20 73 69 64 65 | 2e 0d 3c 3c 6d 61 69 6e |afe side|..<<main|
|00000800| 2e 2e 2e 3e 3e 3d 0d 64 | 62 6d 63 6c 6f 73 65 28 |...>>=.d|bmclose(|
|00000810| 73 63 6f 72 65 73 29 3b | 0d 40 0d 5c 73 75 62 73 |scores);|.@.\subs|
|00000820| 65 63 74 69 6f 6e 7b 45 | 6e 74 65 72 69 6e 67 20 |ection{E|ntering |
|00000830| 74 68 65 20 64 61 74 65 | 7d 0d 3c 3c 64 61 74 65 |the date|}.<<date|
|00000840| 2e 2e 2e 3e 3e 3d 0d 20 | 20 64 61 74 65 6c 6f 6f |...>>=. | dateloo|
|00000850| 70 3a 0d 20 20 77 68 69 | 6c 65 28 31 29 0d 20 20 |p:.  whi|le(1).  |
|00000860| 7b 0d 20 20 20 20 20 20 | 70 72 69 6e 74 20 22 45 |{.      |print "E|
|00000870| 6e 74 65 72 20 64 61 74 | 65 20 28 24 74 6d 64 2d |nter dat|e ($tmd-|
|00000880| 24 74 6d 6f 2d 24 79 65 | 61 72 29 20 2d 20 22 3b |$tmo-$ye|ar) - ";|
|00000890| 0d 20 20 20 20 20 20 24 | 64 61 74 65 3d 73 63 61 |.      $|date=sca|
|000008a0| 6c 61 72 28 3c 53 54 44 | 49 4e 3e 29 3b 0d 20 20 |lar(<STD|IN>);.  |
|000008b0| 20 20 20 20 63 68 6f 70 | 20 24 64 61 74 65 3b 0d |    chop| $date;.|
|000008c0| 20 20 20 20 20 20 24 64 | 61 74 65 3d 6a 6f 69 6e |      $d|ate=join|
|000008d0| 28 27 2d 27 2c 24 74 6d | 64 2c 24 74 6d 6f 29 20 |('-',$tm|d,$tmo) |
|000008e0| 75 6e 6c 65 73 73 20 24 | 64 61 74 65 3b 0d 20 20 |unless $|date;.  |
|000008f0| 20 20 20 20 69 66 28 24 | 64 61 74 65 3d 7e 2f 28 |    if($|date=~/(|
|00000900| 5c 64 7b 31 2c 32 7d 29 | 2d 28 5c 64 7b 31 2c 32 |\d{1,2})|-(\d{1,2|
|00000910| 7d 29 2f 29 0d 20 20 20 | 20 20 20 7b 0d 20 20 20 |})/).   |   {.   |
|00000920| 20 20 20 20 20 20 20 24 | 64 74 5f 6e 74 72 64 3d |       $|dt_ntrd=|
|00000930| 31 3b 0d 20 20 20 20 20 | 20 20 20 20 20 24 64 69 |1;.     |     $di|
|00000940| 6e 64 65 78 3d 73 70 72 | 69 6e 74 66 28 22 25 30 |ndex=spr|intf("%0|
|00000950| 32 64 3a 25 30 32 64 3a | 25 30 34 64 22 2c 24 31 |2d:%02d:|%04d",$1|
|00000960| 2c 24 32 2c 24 79 65 61 | 72 29 3b 0d 20 20 20 20 |,$2,$yea|r);.    |
|00000970| 20 20 20 20 20 20 24 75 | 73 65 63 73 3d 26 72 65 |      $u|secs=&re|
|00000980| 74 69 6d 65 28 24 31 2c | 24 32 2c 24 79 65 61 72 |time($1,|$2,$year|
|00000990| 29 3b 0d 0d 20 20 20 20 | 20 20 20 20 20 20 28 24 |);..    |      ($|
|000009a0| 78 74 73 2c 24 78 74 6d | 69 2c 24 78 74 68 2c 24 |xts,$xtm|i,$xth,$|
|000009b0| 78 74 6d 64 2c 24 78 74 | 6d 6f 2c 24 78 74 79 2c |xtmd,$xt|mo,$xty,|
|000009c0| 40 6a 75 6e 6b 29 3d 67 | 6d 74 69 6d 65 28 24 75 |@junk)=g|mtime($u|
|000009d0| 73 65 63 73 29 3b 0d 20 | 20 20 20 20 20 20 20 20 |secs);. |        |
|000009e0| 20 70 72 69 6e 74 66 20 | 22 25 30 32 64 2d 25 30 | printf |"%02d-%0|
|000009f0| 32 64 2d 25 30 34 64 5c | 6e 22 2c 24 78 74 6d 64 |2d-%04d\|n",$xtmd|
|00000a00| 2c 24 78 74 6d 6f 2c 24 | 78 74 79 3b 0d 0d 20 20 |,$xtmo,$|xty;..  |
|00000a10| 20 20 20 20 20 20 20 20 | 6c 61 73 74 20 64 61 74 |        |last dat|
|00000a20| 65 6c 6f 6f 70 3b 0d 20 | 20 20 20 20 20 7d 0d 20 |eloop;. |     }. |
|00000a30| 20 20 20 20 20 65 6c 73 | 65 20 7b 20 70 72 69 6e |     els|e { prin|
|00000a40| 74 20 22 69 6e 76 61 6c | 69 64 20 64 61 74 65 5c |t "inval|id date\|
|00000a50| 6e 22 3b 20 7d 0d 20 20 | 7d 20 20 20 20 0d 40 20 |n"; }.  |}    .@ |
|00000a60| 25 64 65 66 20 64 61 74 | 65 6c 6f 6f 70 3a 20 24 |%def dat|eloop: $|
|00000a70| 64 61 74 65 20 24 64 74 | 5f 6e 74 72 64 20 24 64 |date $dt|_ntrd $d|
|00000a80| 69 6e 64 65 78 20 24 75 | 73 65 63 73 20 24 78 74 |index $u|secs $xt|
|00000a90| 73 20 24 78 74 6d 69 20 | 24 78 74 68 20 24 78 74 |s $xtmi |$xth $xt|
|00000aa0| 6d 64 20 24 78 74 6d 6f | 20 24 78 74 79 20 40 6a |md $xtmo| $xty @j|
|00000ab0| 75 6e 6b 20 7c 20 53 54 | 44 49 4e 20 26 72 65 74 |unk | ST|DIN &ret|
|00000ac0| 69 6d 65 28 29 20 67 6d | 74 69 6d 65 28 29 0d 5c |ime() gm|time().\|
|00000ad0| 73 75 62 73 65 63 74 69 | 6f 6e 7b 45 6e 74 65 72 |subsecti|on{Enter|
|00000ae0| 69 6e 67 20 74 68 65 20 | 72 6f 75 6e 64 7d 0d 3c |ing the |round}.<|
|00000af0| 3c 72 6f 75 6e 64 2e 2e | 2e 3e 3e 3d 0d 20 20 24 |<round..|.>>=.  $|
|00000b00| 72 6f 75 6e 64 3d 26 67 | 65 74 72 6f 75 6e 64 3b |round=&g|etround;|
|00000b10| 0d 20 20 28 24 72 74 79 | 70 65 2c 40 72 64 69 73 |.  ($rty|pe,@rdis|
|00000b20| 74 73 29 3d 73 70 6c 69 | 74 28 2f 2c 2f 2c 40 72 |ts)=spli|t(/,/,@r|
|00000b30| 6f 75 6e 64 73 7b 24 72 | 6f 75 6e 64 7d 29 3b 0d |ounds{$r|ound});.|
|00000b40| 20 20 24 6d 75 6c 74 3d | 28 24 72 74 79 70 65 3d |  $mult=|($rtype=|
|00000b50| 27 79 27 3f 39 3a 31 30 | 29 3b 0d 40 20 25 64 65 |'y'?9:10|);.@ %de|
|00000b60| 66 20 24 72 6f 75 6e 64 | 20 40 72 64 69 73 74 73 |f $round| @rdists|
|00000b70| 20 24 6d 75 6c 74 20 7c | 20 24 72 74 79 70 65 20 | $mult || $rtype |
|00000b80| 40 72 6f 75 6e 64 73 7b | 7d 20 26 67 65 74 72 6f |@rounds{|} &getro|
|00000b90| 75 6e 64 0d 5c 73 75 62 | 73 65 63 74 69 6f 6e 7b |und.\sub|section{|
|00000ba0| 45 6e 74 65 72 69 6e 67 | 20 74 68 65 20 73 63 6f |Entering| the sco|
|00000bb0| 72 65 7d 0d 3c 3c 73 63 | 6f 72 65 2e 2e 2e 3e 3e |re}.<<sc|ore...>>|
|00000bc0| 3d 0d 20 20 75 6e 74 69 | 6c 28 64 65 66 69 6e 65 |=.  unti|l(define|
|00000bd0| 64 28 24 73 63 5f 6e 74 | 72 64 29 29 0d 20 20 7b |d($sc_nt|rd)).  {|
|00000be0| 0d 20 20 20 20 20 20 70 | 72 69 6e 74 20 27 45 6e |.      p|rint 'En|
|00000bf0| 74 65 72 20 73 63 6f 72 | 65 73 20 28 31 30 30 2c |ter scor|es (100,|
|00000c00| 31 30 30 2c 31 30 30 29 | 20 2d 20 27 3b 0d 20 20 |100,100)| - ';.  |
|00000c10| 20 20 20 20 24 73 63 6c | 69 73 74 3d 73 63 61 6c |    $scl|ist=scal|
|00000c20| 61 72 28 3c 53 54 44 49 | 4e 3e 29 3b 0d 20 20 20 |ar(<STDI|N>);.   |
|00000c30| 20 20 20 63 68 6f 70 20 | 24 73 63 6c 69 73 74 3b |   chop |$sclist;|
|00000c40| 0d 20 20 20 20 20 20 26 | 61 62 6f 72 74 20 75 6e |.      &|abort un|
|00000c50| 6c 65 73 73 20 24 73 63 | 6c 69 73 74 3b 0d 20 20 |less $sc|list;.  |
|00000c60| 20 20 20 20 40 72 73 63 | 6f 72 65 73 3d 73 70 6c |    @rsc|ores=spl|
|00000c70| 69 74 28 2f 2c 2f 2c 24 | 73 63 6c 69 73 74 29 3b |it(/,/,$|sclist);|
|00000c80| 0d 20 20 20 20 20 20 69 | 66 28 32 2a 24 23 72 73 |.      i|f(2*$#rs|
|00000c90| 63 6f 72 65 73 3d 3d 24 | 23 72 64 69 73 74 73 2d |cores==$|#rdists-|
|00000ca0| 31 29 20 7b 24 73 63 5f | 6e 74 72 64 3d 31 3b 7d |1) {$sc_|ntrd=1;}|
|00000cb0| 0d 20 20 20 20 20 20 65 | 6c 73 65 20 7b 20 70 72 |.      e|lse { pr|
|00000cc0| 69 6e 74 20 22 77 72 6f | 6e 67 20 6e 75 6d 62 65 |int "wro|ng numbe|
|00000cd0| 72 20 6f 66 20 73 63 6f | 72 65 73 5c 6e 22 3b 20 |r of sco|res\n"; |
|00000ce0| 7d 0d 20 20 20 20 20 20 | 66 6f 72 28 24 69 3d 30 |}.      |for($i=0|
|00000cf0| 3b 24 69 3c 3d 24 23 72 | 73 63 6f 72 65 73 3b 24 |;$i<=$#r|scores;$|
|00000d00| 69 2b 2b 29 0d 20 20 20 | 20 20 20 7b 0d 20 20 20 |i++).   |   {.   |
|00000d10| 20 20 20 20 20 20 20 24 | 6d 73 3d 40 72 64 69 73 |       $|ms=@rdis|
|00000d20| 74 73 5b 32 2a 24 69 5d | 2a 24 6d 75 6c 74 3b 0d |ts[2*$i]|*$mult;.|
|00000d30| 20 20 20 20 20 20 20 20 | 20 20 69 66 28 40 72 73 |        |  if(@rs|
|00000d40| 63 6f 72 65 73 5b 24 69 | 5d 3e 24 6d 73 29 0d 20 |cores[$i|]>$ms). |
|00000d50| 20 20 20 20 20 20 20 20 | 20 7b 20 70 72 69 6e 74 |        | { print|
|00000d60| 66 20 22 69 6e 76 61 6c | 69 64 3a 20 25 64 3e 70 |f "inval|id: %d>p|
|00000d70| 6f 73 73 69 62 6c 65 20 | 28 24 6d 73 29 5c 6e 22 |ossible |($ms)\n"|
|00000d80| 2c 40 72 73 63 6f 72 65 | 73 5b 24 69 5d 3b 0d 20 |,@rscore|s[$i];. |
|00000d90| 20 20 20 20 20 20 20 20 | 20 20 20 24 73 63 5f 6e |        |   $sc_n|
|00000da0| 74 72 64 3d 24 75 6e 64 | 65 66 69 6e 65 64 3b 0d |trd=$und|efined;.|
|00000db0| 20 20 20 20 20 20 20 20 | 20 20 7d 0d 20 20 20 20 |        |  }.    |
|00000dc0| 20 20 7d 0d 20 20 7d 0d | 40 20 25 64 65 66 20 24 |  }.  }.|@ %def $|
|00000dd0| 73 63 6c 69 73 74 20 40 | 72 73 63 6f 72 65 73 20 |sclist @|rscores |
|00000de0| 24 6d 73 20 24 73 63 5f | 6e 74 72 64 20 7c 20 53 |$ms $sc_|ntrd | S|
|00000df0| 54 44 49 4e 20 24 6d 75 | 6c 74 20 40 72 64 69 73 |TDIN $mu|lt @rdis|
|00000e00| 74 73 20 24 75 6e 64 65 | 66 69 6e 65 64 0d 5c 73 |ts $unde|fined.\s|
|00000e10| 75 62 73 65 63 74 69 6f | 6e 7b 53 74 6f 72 69 6e |ubsectio|n{Storin|
|00000e20| 67 20 74 68 65 20 64 61 | 74 61 7d 0d 54 68 65 20 |g the da|ta}.The |
|00000e30| 64 62 6d 20 65 6e 74 72 | 69 65 73 20 61 72 65 20 |dbm entr|ies are |
|00000e40| 63 72 65 61 74 65 64 20 | 69 6e 20 61 20 66 61 69 |created |in a fai|
|00000e50| 72 6c 79 20 6e 61 69 76 | 65 20 66 61 73 68 69 6f |rly naiv|e fashio|
|00000e60| 6e 20 61 74 20 74 68 65 | 20 6d 6f 6d 65 6e 74 2e |n at the| moment.|
|00000e70| 0d 54 68 65 20 72 6f 75 | 6e 64 20 6e 61 6d 65 20 |.The rou|nd name |
|00000e80| 61 6e 64 20 73 63 6f 72 | 65 73 20 61 72 65 20 74 |and scor|es are t|
|00000e90| 75 72 6e 65 64 20 69 6e | 74 6f 20 61 20 43 53 56 |urned in|to a CSV|
|00000ea0| 20 73 74 72 69 6e 67 2e | 20 46 75 74 75 72 65 20 | string.| Future |
|00000eb0| 76 65 72 73 69 6f 6e 73 | 0d 77 69 6c 6c 20 61 6c |versions|.will al|
|00000ec0| 6d 6f 73 74 20 63 65 72 | 74 61 69 6e 6c 79 20 75 |most cer|tainly u|
|00000ed0| 73 65 20 74 65 6d 70 6c | 61 74 65 73 20 61 6e 64 |se templ|ates and|
|00000ee0| 20 70 61 63 6b 69 6e 67 | 20 74 6f 20 72 65 64 75 | packing| to redu|
|00000ef0| 63 65 20 74 68 65 20 61 | 6d 6f 75 6e 74 0d 6f 66 |ce the a|mount.of|
|00000f00| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 20 74 68 61 | informa|tion tha|
|00000f10| 74 20 69 73 20 73 74 6f | 72 65 64 2e 0d 0d 3c 3c |t is sto|red...<<|
|00000f20| 63 72 65 61 74 65 2e 2e | 2e 3e 3e 3d 0d 20 20 24 |create..|.>>=.  $|
|00000f30| 65 6e 74 72 79 3d 6a 6f | 69 6e 28 27 2c 27 2c 24 |entry=jo|in(',',$|
|00000f40| 72 6f 75 6e 64 2c 40 72 | 73 63 6f 72 65 73 29 3b |round,@r|scores);|
|00000f50| 0d 20 20 40 73 63 6f 72 | 65 73 7b 24 64 69 6e 64 |.  @scor|es{$dind|
|00000f60| 65 78 7d 3d 24 65 6e 74 | 72 79 3b 0d 40 20 25 64 |ex}=$ent|ry;.@ %d|
|00000f70| 65 66 20 24 65 6e 74 72 | 79 20 40 73 63 6f 72 65 |ef $entr|y @score|
|00000f80| 73 20 7c 20 24 72 6f 75 | 6e 64 20 40 72 73 63 6f |s | $rou|nd @rsco|
|00000f90| 72 65 73 20 24 64 69 6e | 64 65 78 0d 5c 73 75 62 |res $din|dex.\sub|
|00000fa0| 73 65 63 74 69 6f 6e 7b | 50 72 6f 6d 70 74 20 74 |section{|Prompt t|
|00000fb0| 68 65 20 75 73 65 72 7d | 0d 4e 6f 77 20 77 65 20 |he user}|.Now we |
|00000fc0| 70 72 6f 6d 70 74 20 74 | 68 65 20 75 73 65 72 20 |prompt t|he user |
|00000fd0| 74 6f 20 73 65 65 20 69 | 66 20 74 68 65 79 20 77 |to see i|f they w|
|00000fe0| 61 6e 74 20 74 6f 20 65 | 6e 74 65 72 20 61 6e 6f |ant to e|nter ano|
|00000ff0| 74 68 65 72 20 73 63 6f | 72 65 2e 0d 54 68 65 20 |ther sco|re..The |
|00001000| 64 65 66 61 75 6c 74 20 | 61 6e 73 77 65 72 20 28 |default |answer (|
|00001010| 69 65 20 6a 75 73 74 20 | 70 72 65 73 73 69 6e 67 |ie just |pressing|
|00001020| 20 5b 5b 52 45 54 55 52 | 4e 5d 5d 29 20 69 73 20 | [[RETUR|N]]) is |
|00001030| 79 65 73 20 6f 6e 20 74 | 68 65 0d 61 73 73 75 6d |yes on t|he.assum|
|00001040| 70 74 69 6f 6e 20 74 68 | 61 74 20 6d 6f 72 65 20 |ption th|at more |
|00001050| 74 68 61 6e 20 6f 6e 65 | 20 73 63 6f 72 65 20 77 |than one| score w|
|00001060| 69 6c 6c 20 62 65 20 65 | 6e 74 65 72 65 64 20 61 |ill be e|ntered a|
|00001070| 74 20 61 20 74 69 6d 65 | 2e 20 49 74 0d 77 69 6c |t a time|. It.wil|
|00001080| 6c 20 62 65 20 63 68 61 | 6e 67 65 64 20 73 6f 20 |l be cha|nged so |
|00001090| 74 68 61 74 20 61 20 73 | 63 6f 72 65 20 65 6e 74 |that a s|core ent|
|000010a0| 65 72 65 64 20 77 69 74 | 68 20 74 6f 64 61 79 27 |ered wit|h today'|
|000010b0| 73 20 64 61 74 65 20 77 | 69 6c 6c 0d 63 68 61 6e |s date w|ill.chan|
|000010c0| 67 65 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 74 |ge the d|efault t|
|000010d0| 6f 20 6e 6f 20 6f 6e 20 | 74 68 65 20 61 73 73 75 |o no on |the assu|
|000010e0| 6d 70 74 69 6f 6e 20 74 | 68 61 74 20 74 68 65 20 |mption t|hat the |
|000010f0| 72 65 73 74 20 6f 66 20 | 74 68 65 0d 64 61 74 61 |rest of |the.data|
|00001100| 62 61 73 65 20 69 73 20 | 75 70 20 74 6f 20 64 61 |base is |up to da|
|00001110| 74 65 2e 0d 0d 3c 3c 70 | 72 6f 6d 70 74 2e 2e 2e |te...<<p|rompt...|
|00001120| 3e 3e 3d 0d 20 20 24 6c | 6f 6f 70 61 67 61 69 6e |>>=.  $l|oopagain|
|00001130| 3d 26 79 65 73 6e 6f 28 | 22 41 6e 6f 74 68 65 72 |=&yesno(|"Another|
|00001140| 20 73 63 6f 72 65 22 2c | 27 79 27 29 3b 0d 20 20 | score",|'y');.  |
|00001150| 6c 61 73 74 20 75 6e 6c | 65 73 73 20 24 6c 6f 6f |last unl|ess $loo|
|00001160| 70 61 67 61 69 6e 3b 0d | 20 20 75 6e 64 65 66 20 |pagain;.|  undef |
|00001170| 24 73 63 5f 6e 74 72 64 | 3b 0d 40 20 25 64 65 66 |$sc_ntrd|;.@ %def|
|00001180| 20 24 6c 6f 6f 70 61 67 | 61 69 6e 20 7c 20 26 79 | $loopag|ain | &y|
|00001190| 65 73 6e 6f 28 29 20 24 | 73 63 5f 6e 74 72 64 0d |esno() $|sc_ntrd.|
|000011a0| 5c 73 65 63 74 69 6f 6e | 7b 53 75 62 72 6f 75 74 |\section|{Subrout|
|000011b0| 69 6e 65 73 7d 0d 5c 73 | 75 62 73 65 63 74 69 6f |ines}.\s|ubsectio|
|000011c0| 6e 7b 5b 5b 72 65 74 69 | 6d 65 5d 5d 7d 0d 54 68 |n{[[reti|me]]}.Th|
|000011d0| 69 73 20 73 75 62 72 6f | 75 74 69 6e 65 20 69 73 |is subro|utine is|
|000011e0| 20 73 75 70 70 6f 73 65 | 64 20 74 6f 20 63 6f 6e | suppose|d to con|
|000011f0| 76 65 72 74 20 61 20 64 | 61 74 65 20 69 6e 20 64 |vert a d|ate in d|
|00001200| 64 2d 6d 6d 2d 79 79 79 | 79 20 66 6f 72 6d 20 69 |d-mm-yyy|y form i|
|00001210| 6e 74 6f 0d 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |nto.the |number o|
|00001220| 66 20 5c 6d 75 73 65 63 | 73 5c 20 73 69 6e 63 65 |f \musec|s\ since|
|00001230| 20 31 2d 31 2d 31 39 37 | 30 2c 20 62 75 74 20 69 | 1-1-197|0, but i|
|00001240| 74 20 73 6f 6d 65 74 69 | 6d 65 73 20 67 65 74 73 |t someti|mes gets|
|00001250| 20 69 74 0d 6d 79 73 74 | 65 72 69 6f 75 73 6c 79 | it.myst|eriously|
|00001260| 20 77 72 6f 6e 67 2c 20 | 73 6f 20 77 65 20 64 6f | wrong, |so we do|
|00001270| 6e 27 74 20 75 73 65 20 | 69 74 20 66 6f 72 20 69 |n't use |it for i|
|00001280| 6e 64 65 78 69 6e 67 20 | 79 65 74 2e 0d 0d 3c 3c |ndexing |yet...<<|
|00001290| 53 75 62 72 6f 75 74 69 | 6e 65 73 3e 3e 3d 0d 73 |Subrouti|nes>>=.s|
|000012a0| 75 62 20 72 65 74 69 6d | 65 0d 7b 20 6c 6f 63 61 |ub retim|e.{ loca|
|000012b0| 6c 28 24 64 2c 24 6d 2c | 24 79 29 3d 40 5f 3b 0d |l($d,$m,|$y)=@_;.|
|000012c0| 20 20 6c 6f 63 61 6c 28 | 24 77 6d 2c 24 6d 64 2c |  local(|$wm,$md,|
|000012d0| 24 79 64 29 3b 0d 0d 20 | 20 24 77 6d 3d 24 6d 2d |$yd);.. | $wm=$m-|
|000012e0| 33 3b 0d 20 20 69 66 28 | 24 77 6d 3c 30 29 20 7b |3;.  if(|$wm<0) {|
|000012f0| 20 24 77 6d 2b 3d 31 32 | 3b 20 24 79 2d 2d 3b 20 | $wm+=12|; $y--; |
|00001300| 7d 09 09 23 20 6d 6f 64 | 69 66 69 65 64 20 6d 6f |}..# mod|ified mo|
|00001310| 6e 74 68 20 6e 75 6d 62 | 65 72 0d 20 20 24 6d 64 |nth numb|er.  $md|
|00001320| 3d 69 6e 74 28 33 30 2e | 36 2a 24 77 6d 2b 2e 35 |=int(30.|6*$wm+.5|
|00001330| 29 3b 09 09 09 23 20 6d | 6f 6e 74 68 20 64 61 79 |);...# m|onth day|
|00001340| 0d 20 20 24 79 64 3d 69 | 6e 74 28 33 36 35 2e 32 |.  $yd=i|nt(365.2|
|00001350| 35 2a 28 24 79 2d 31 39 | 37 30 29 2b 24 6d 64 2b |5*($y-19|70)+$md+|
|00001360| 24 64 29 2b 36 30 3b 09 | 23 20 61 63 74 75 61 6c |$d)+60;.|# actual|
|00001370| 20 64 61 79 20 6e 75 6d | 62 65 72 0d 20 20 38 36 | day num|ber.  86|
|00001380| 34 30 30 2a 24 79 64 3b | 0d 7d 0d 40 20 25 64 65 |400*$yd;|.}.@ %de|
|00001390| 66 20 24 64 20 24 6d 20 | 24 79 20 24 77 6d 20 24 |f $d $m |$y $wm $|
|000013a0| 6d 64 20 24 79 64 0d 5c | 73 65 63 74 69 6f 6e 7b |md $yd.\|section{|
|000013b0| 54 68 69 6e 67 73 20 74 | 6f 20 64 6f 7d 0d 5c 69 |Things t|o do}.\i|
|000013c0| 74 65 6d 69 7a 65 0d 5c | 69 74 65 6d 0d 54 68 65 |temize.\|item.The|
|000013d0| 20 77 61 79 20 74 68 65 | 20 72 6f 75 6e 64 73 20 | way the| rounds |
|000013e0| 61 72 65 20 73 74 6f 72 | 65 64 20 61 6e 64 20 61 |are stor|ed and a|
|000013f0| 63 63 65 73 73 65 64 20 | 6e 65 65 64 73 20 74 6f |ccessed |needs to|
|00001400| 20 62 65 20 63 68 61 6e | 67 65 64 2e 0d 60 43 6f | be chan|ged..`Co|
|00001410| 6d 70 69 6c 69 6e 67 27 | 20 74 68 65 20 72 6f 75 |mpiling'| the rou|
|00001420| 6e 64 73 20 69 6e 74 6f | 20 61 20 6d 6f 72 65 20 |nds into| a more |
|00001430| 63 6f 6d 70 61 63 74 20 | 66 6f 72 6d 20 77 6f 75 |compact |form wou|
|00001440| 6c 64 20 73 61 76 65 20 | 73 70 61 63 65 2c 0d 61 |ld save |space,.a|
|00001450| 6e 64 20 70 6f 73 73 69 | 62 6c 79 20 6d 61 6b 65 |nd possi|bly make|
|00001460| 20 74 68 69 6e 67 73 20 | 61 20 6c 69 74 74 6c 65 | things |a little|
|00001470| 20 66 61 73 74 65 72 2e | 0d 0d 5c 69 74 65 6d 0d | faster.|..\item.|
|00001480| 41 20 62 65 74 74 65 72 | 20 75 73 65 72 20 69 6e |A better| user in|
|00001490| 74 65 72 66 61 63 65 20 | 77 6f 75 6c 64 20 61 6c |terface |would al|
|000014a0| 73 6f 20 62 65 20 61 20 | 67 6f 6f 64 20 69 64 65 |so be a |good ide|
|000014b0| 61 2e 20 50 6f 73 73 69 | 62 6c 79 20 6d 61 6b 69 |a. Possi|bly maki|
|000014c0| 6e 67 0d 74 68 65 20 70 | 72 6f 67 72 61 6d 20 72 |ng.the p|rogram r|
|000014d0| 75 6e 20 75 6e 64 65 72 | 20 61 20 64 69 66 66 65 |un under| a diffe|
|000014e0| 72 65 6e 74 20 73 63 72 | 65 65 6e 20 6d 6f 64 65 |rent scr|een mode|
|000014f0| 20 66 6f 72 20 6c 61 72 | 67 65 72 20 74 65 78 74 | for lar|ger text|
|00001500| 2e 0d 0d 5c 69 74 65 6d | 0d 41 64 64 69 6e 67 20 |...\item|.Adding |
|00001510| 61 20 63 6f 6e 66 69 72 | 6d 20 6a 75 73 74 20 62 |a confir|m just b|
|00001520| 65 66 6f 72 65 20 74 68 | 65 20 64 61 74 61 20 69 |efore th|e data i|
|00001530| 73 20 69 6e 73 65 72 74 | 65 64 20 69 6e 74 6f 20 |s insert|ed into |
|00001540| 74 68 65 20 64 62 6d 20 | 64 61 74 61 62 61 73 65 |the dbm |database|
|00001550| 2e 0d 0d 5c 65 6e 64 69 | 74 65 6d 69 7a 65 0d 0d |...\endi|temize..|
|00001560| 5c 63 68 61 70 74 65 72 | 7b 56 61 72 69 61 62 6c |\chapter|{Variabl|
|00001570| 65 73 7d 0d 5c 70 72 69 | 6e 74 69 6e 64 65 78 7b |es}.\pri|ntindex{|
|00001580| 69 64 73 7d 0d 5c 63 68 | 61 70 74 65 72 7b 4d 6f |ids}.\ch|apter{Mo|
|00001590| 64 75 6c 65 73 7d 0d 5c | 70 72 69 6e 74 69 6e 64 |dules}.\|printind|
|000015a0| 65 78 7b 6d 6f 64 73 7d | 0d                      |ex{mods}|.       |
+--------+-------------------------+-------------------------+--------+--------+